(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    227278,       6398]
NotebookOptionsPosition[    221641,       6316]
NotebookOutlinePosition[    222191,       6337]
CellTagsIndexPosition[    222148,       6334]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Initialize", "Subtitle",ExpressionUUID->"6e477691-23a6-458d-a7f0-8d1bbaf08c10"],

Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input",ExpressionUUID->"6f151e91-0678-47e2-b503-1cf4088f7d67"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Gamma]", " ", "=", "0.2"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Lambda]", "=", "50"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TOL", "=", "10000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TT", "=", "0.5"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"cel", "=", "1"}], ";"}]}], "Input",ExpressionUUID->"6b92a6f2-73c2-\
4990-bc19-3c58f1f0b9b9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile16", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
      "\"\<Lorentzian.wdx\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile13", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
      "\"\<vertice.wdx\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile14", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
      "\"\<Deficient.wdx\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile17", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<data\>\"", ",", 
      "\"\<vmax.wl\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tempfile18", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
      "\"\<Boundary.wdx\>\""}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"tempfile25", "=", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Directory", "[", "]"}], ",", "\"\<data\>\"", ",", 
       "\"\<data.wl\>\""}], "}"}], "]"}]}], ";"}], "\n"}], "\n", 
 RowBox[{"Get", "[", "tempfile13", "]"}], "\n", 
 RowBox[{"Get", "[", "tempfile14", "]"}], "\n", 
 RowBox[{"Get", "[", "tempfile16", "]"}], "\n", 
 RowBox[{"Get", "[", "tempfile17", "]"}], "\n", 
 RowBox[{
  RowBox[{"Get", "[", "tempfile18", "]"}], "\n", 
  RowBox[{"(*", 
   RowBox[{"ccr", "=", 
    RowBox[{"{", 
     RowBox[{
     "13.597198807962943`", ",", "34.86750511573782`", ",", 
      "14.368758638002316`"}], "}"}]}], "*)"}], "\n", 
  RowBox[{"(*", 
   RowBox[{"ccr", "=", 
    RowBox[{"{", 
     RowBox[{
     "13.107432461134675`", ",", "33.84127994949433`", ",", 
      "16.14908263918081`"}], "}"}]}], "*)"}]}], "\n", 
 RowBox[{"ccr", "=", 
  RowBox[{"{", 
   RowBox[{
   "12.842108228341`", ",", "33.33192391213714`", ",", 
    "17.105431193445618`"}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"tempfile6", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<modules\>\"", ",", 
      RowBox[{
       RowBox[{"ToString", "[", "\[Lambda]", "]"}], "<>", "\"\<-\>\"", "<>", 
       RowBox[{"ToString", "[", "ccr", "]"}], "<>", "\"\<-\>\"", "<>", 
       "\"\<core.mx\>\""}]}], "}"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.865398563155495*^9, 
  3.8653985634718294`*^9}},ExpressionUUID->"c20aecf8-2041-4f1e-883e-\
fe88b2392d1d"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"{", 
   RowBox[{
   "13.597198807962943`", ",", "34.86750511573782`", ",", 
    "14.368758638002316`"}], "}"}], "*)"}]], "Input",ExpressionUUID->\
"d4ad86ba-7c68-45fa-b327-ff0f4c446827"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LogM", "[", 
   RowBox[{"z_", ",", 
    RowBox[{"\[Sigma]_:", "0"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"z", " ", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "I"}], "*", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "*", "Pi"}], ")"}]}], "]"}]}], "]"}], "+", 
   RowBox[{"I", "*", "\[Sigma]", "*", "Pi"}]}]}]], "Input",ExpressionUUID->\
"bc363d85-e473-4613-a2ce-00da8d34f08c"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"ccr", "=", 
    RowBox[{"{", 
     RowBox[{"10.57036", ",", "29.64435", ",", "10.51941"}], "}"}]}], ";"}], 
  "*)"}]], "Input",ExpressionUUID->"dc773892-a3cb-4405-92bc-8feab608410c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Boundary test functions", "Subtitle",ExpressionUUID->"9e22d5d8-f0b8-4542-ad14-8e9594883c44"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"asd", "=", 
    RowBox[{"Vertices", "[", 
     RowBox[{"vid", ",", "Sid", ",", "Vertex", ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"ccr", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"ccr", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"ccr", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "]"}]}], "]"}]}], ";"}], "//", 
  "Quiet"}]], "Input",ExpressionUUID->"b0cfb57d-d40f-4050-bf87-ca0a387cc131"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrTest1", "[", 
   RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"c1", ",", "c2", ",", "a", ",", "b"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"a", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"Sid", ",", "x"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"b", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"Sid", ",", "y"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"c1", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"a", ",", "y"}], "]"}], "]"}], "]"}], ".", 
        RowBox[{"zv", "[", 
         RowBox[{"[", 
          RowBox[{"a", ",", "y", ",", "z"}], "]"}], "]"}]}], "/", 
       RowBox[{"Norm", "[", 
        RowBox[{
         RowBox[{"ConjugateTranspose", "[", 
          RowBox[{"gv", "[", 
           RowBox[{"[", 
            RowBox[{"a", ",", "y"}], "]"}], "]"}], "]"}], ".", 
         RowBox[{"zv", "[", 
          RowBox[{"[", 
           RowBox[{"a", ",", "y", ",", "z"}], "]"}], "]"}]}], "]"}]}]}], ";", 
     "\n", 
     RowBox[{"c2", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"b", ",", "x"}], "]"}], "]"}], "]"}], ".", 
        RowBox[{"zv", "[", 
         RowBox[{"[", 
          RowBox[{"b", ",", "x", ",", "z"}], "]"}], "]"}]}], "/", 
       RowBox[{"Norm", "[", 
        RowBox[{
         RowBox[{"ConjugateTranspose", "[", 
          RowBox[{"gv", "[", 
           RowBox[{"[", 
            RowBox[{"b", ",", "x"}], "]"}], "]"}], "]"}], ".", 
         RowBox[{"zv", "[", 
          RowBox[{"[", 
           RowBox[{"b", ",", "x", ",", "z"}], "]"}], "]"}]}], "]"}]}]}], ";", 
     "\n", 
     RowBox[{"If", "[", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{"c2", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], "<", 
        RowBox[{"10", "^", 
         RowBox[{"-", "14"}]}]}], ",", "\n", 
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"c1", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "/", 
          RowBox[{"c2", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "-", "1"}], ",", "\n", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{"c2", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", 
          RowBox[{"10", "^", 
           RowBox[{"-", "14"}]}]}], ",", "\n", 
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{"c1", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "/", 
            RowBox[{"c2", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "-", "1"}], ",", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"c1", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "/", 
           RowBox[{"c2", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], "-", 
          RowBox[{
           RowBox[{"c1", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "/", 
           RowBox[{"c2", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}]}], "\n", "]"}]}], "\n", 
      "]"}]}]}], "\n", "]"}]}]], "Input",ExpressionUUID->"e874a38a-3d85-4b07-\
b646-8e99eecba2c5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrTests2", "[", 
   RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"gv", "[", 
      RowBox[{"[", 
       RowBox[{"x", ",", "y"}], "]"}], "]"}], ".", 
     RowBox[{"ConjugateTranspose", "[", 
      RowBox[{"gv", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}], ".", 
     RowBox[{"zv", "[", 
      RowBox[{"[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], "/", 
    RowBox[{
     RowBox[{"Norm", "[", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}], ".", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], "]"}], "^", 
     "2"}]}], "-", 
   RowBox[{
    RowBox[{
     RowBox[{"gv", "[", 
      RowBox[{"[", 
       RowBox[{"x", ",", "z"}], "]"}], "]"}], ".", 
     RowBox[{"ConjugateTranspose", "[", 
      RowBox[{"gv", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "z"}], "]"}], "]"}], "]"}], ".", 
     RowBox[{"zv", "[", 
      RowBox[{"[", 
       RowBox[{"x", ",", "z", ",", "y"}], "]"}], "]"}]}], "/", 
    RowBox[{
     RowBox[{"Norm", "[", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "z"}], "]"}], "]"}], "]"}], ".", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"x", ",", "z", ",", "y"}], "]"}], "]"}]}], "]"}], "^", 
     "2"}]}]}]}]], "Input",ExpressionUUID->"056c32d1-7820-4e18-9569-\
bad7f8ad50e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CrTests3", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "c1", ",", "c2", ",", "c3", ",", "c4", ",", "z", ",", "n1", ",", "n2", 
      ",", "n3", ",", "n4", ",", "xp"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"z", "=", 
      RowBox[{"Sort", "[", 
       RowBox[{"vid", "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "->", "Nothing"}], ",", 
          RowBox[{"y", "->", "Nothing"}]}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"xp", "=", 
      RowBox[{
       RowBox[{"Position", "[", 
        RowBox[{"Sid", ",", "x"}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"c1", "=", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"xp", ",", "y"}], "]"}], "]"}], "]"}], ".", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"xp", ",", "y", ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{"c2", "=", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"xp", ",", "y"}], "]"}], "]"}], "]"}], ".", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"xp", ",", "y", ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{"c3", "=", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"xp", ",", "y"}], "]"}], "]"}], "]"}], ".", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"xp", ",", "y", ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{"c4", "=", 
      RowBox[{
       RowBox[{"ConjugateTranspose", "[", 
        RowBox[{"gv", "[", 
         RowBox[{"[", 
          RowBox[{"xp", ",", "y"}], "]"}], "]"}], "]"}], ".", 
       RowBox[{"zv", "[", 
        RowBox[{"[", 
         RowBox[{"xp", ",", "y", ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{"-", "1"}], ",", "1", ",", 
          RowBox[{"-", "1"}]}], "}"}], "*", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"arv", "[", 
           RowBox[{"[", 
            RowBox[{"xp", ",", "y", ",", 
             RowBox[{"z", "[", 
              RowBox[{"[", "xs", "]"}], "]"}]}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"xs", ",", "1", ",", "4"}], "}"}]}], "]"}], "*", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Conjugate", "[", "#", "]"}], ".", 
               RowBox[{"PauliMatrix", "[", "xs", "]"}], ".", "#"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Norm", "[", "#", "]"}], "^", "2"}], ")"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"xs", ",", "1", ",", "3"}], "}"}]}], "]"}], "&"}], ",", 
          RowBox[{"{", 
           RowBox[{"c1", ",", "c2", ",", "c3", ",", "c4"}], "}"}]}], "]"}]}], 
       "//", "Total"}], "//", "Norm"}]}]}], "\n", "\n", "]"}]}]], "Input",Expr\
essionUUID->"c3c25561-59c0-4bd6-9349-681b46163601"],

Cell[BoxData[
 RowBox[{
  RowBox[{"TestSpin", "[", "a_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"na", ",", 
      RowBox[{"ca", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{"a", ",", 
         RowBox[{"10", "^", 
          RowBox[{"(", 
           RowBox[{"-", "13"}], ")"}]}]}], "]"}]}]}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"na", "=", 
      RowBox[{"Norm", "[", "ca", "]"}]}], ";", "\n", 
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{
           RowBox[{"ca", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "!=", "0"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"na", "==", "0"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"ca", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], "&&", 
           RowBox[{"na", "!=", "0"}]}]}], "}"}]}], "}"}], "]"}]}]}], "\n", 
   "]"}]}]], "Input",ExpressionUUID->"dadba77e-8029-47e6-87e5-adb8b7b04b0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Action", "Subtitle",ExpressionUUID->"a35d67f8-00d1-4b34-9b2d-a227c2099a87"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"MEXP", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z1", ",", "z2", ",", "z3", ",", "out"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"z1", "=", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "+", 
           RowBox[{"I", "*", 
            RowBox[{"y", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], "/", 
         RowBox[{"Sqrt", "[", "2", "]"}]}]}]}], ";", "\n", 
      RowBox[{"z2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "+", 
          RowBox[{"I", "*", 
           RowBox[{"y", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\n", 
      RowBox[{"z3", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "+", 
          RowBox[{"I", "*", 
           RowBox[{"y", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\n", 
      RowBox[{"out", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"z1", ",", "z2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z3", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"z2", " ", "z3"}]}], ")"}], "/", "z1"}]}], "}"}]}], 
        "}"}]}]}]}], "\n", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ZEXP", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z1", ",", "z2"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"z1", "=", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"x", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], ";", "\n", 
      RowBox[{"z2", "=", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "+", 
        RowBox[{"I", " ", 
         RowBox[{"y", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}]}], ";", "\n", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"z1", ",", "z2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"1", "+", 
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "}"}]}]}], "\n", 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"MCEXP", "[", 
    RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z1", ",", "z2", ",", "z3", ",", "out"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"z1", "=", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "-", 
           RowBox[{"I", "*", 
            RowBox[{"y", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], "/", 
         RowBox[{"Sqrt", "[", "2", "]"}]}]}]}], ";", "\n", 
      RowBox[{"z2", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "-", 
          RowBox[{"I", "*", 
           RowBox[{"y", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\n", 
      RowBox[{"z3", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "-", 
          RowBox[{"I", "*", 
           RowBox[{"y", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", "\n", 
      RowBox[{"out", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"z1", ",", "z2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z3", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"z2", " ", "z3"}]}], ")"}], "/", "z1"}]}], "}"}]}], 
        "}"}]}]}]}], "\n", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ZCEXP", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"z1", ",", "z2"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"z1", "=", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], ";", "\n", 
     RowBox[{"z2", "=", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "-", 
       RowBox[{"I", " ", 
        RowBox[{"y", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}]}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"z1", ",", "z2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"1", "+", 
          RowBox[{"x", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "}"}]}]}], "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"ZV", "[", 
     RowBox[{"z_", ",", "x_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"z", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], "\n", 
      RowBox[{"CZV", "[", 
       RowBox[{"z_", ",", "x_"}], "]"}]}], ":=", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"Conjugate", "[", 
         RowBox[{"z", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "]"}], "+", 
        RowBox[{"x", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "-", " ", 
        RowBox[{"I", " ", 
         RowBox[{"x", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}]}]}], "*)"}]}]}], "Input",\
ExpressionUUID->"cc4ce62e-c22b-41c5-82cd-403829c3b6a1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ZV", "[", 
   RowBox[{"z_", ",", "x_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\n", 
     RowBox[{"t1", "=", 
      RowBox[{"TestSpin", "[", "z", "]"}]}], "\n", "}"}], ",", "\n", 
    RowBox[{"Switch", "[", 
     RowBox[{"t1", ",", "2", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"z", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], ",", "1", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"z", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
        RowBox[{"z", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"CZV", "[", 
   RowBox[{"z_", ",", "x_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\n", 
     RowBox[{"t1", "=", 
      RowBox[{"TestSpin", "[", "z", "]"}]}], "\n", "}"}], ",", "\n", 
    RowBox[{"Switch", "[", 
     RowBox[{"t1", ",", "2", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"z", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "-", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}]}], "}"}], ",", "1", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Conjugate", "[", 
          RowBox[{"z", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], "+", 
         RowBox[{"x", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "-", " ", 
         RowBox[{"I", " ", 
          RowBox[{"x", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
        RowBox[{"z", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "\n", "]"}]}]}], "Input",Exp\
ressionUUID->"8e88f853-140a-4c46-a261-e4da30328510"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GG", "[", "x_", "]"}], ":=", 
   RowBox[{"If", "[", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "x", "]"}], "==", "6"}], ",", "\n", 
     RowBox[{"MEXP", "[", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "3"}], "]"}], "]"}], ",", 
       RowBox[{"x", "[", 
        RowBox[{"[", 
         RowBox[{"4", ";;", "6"}], "]"}], "]"}]}], "]"}], ",", "\n", 
     RowBox[{"ZEXP", "[", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "}"}]}], "]"}]}], "\n", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"CGG", "[", "x_", "]"}], ":=", 
   RowBox[{"If", "[", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "x", "]"}], "==", "6"}], ",", "\n", 
     RowBox[{"Transpose", "[", 
      RowBox[{"MCEXP", "[", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "3"}], "]"}], "]"}], ",", 
        RowBox[{"x", "[", 
         RowBox[{"[", 
          RowBox[{"4", ";;", "6"}], "]"}], "]"}]}], "]"}], "]"}], ",", "\n", 
     RowBox[{"Transpose", "[", 
      RowBox[{"ZCEXP", "[", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "2"}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "}"}]}], "]"}], "]"}]}], "\n", 
    "]"}]}], ";"}]}], "Input",ExpressionUUID->"3990fc3c-5454-4384-a7bb-\
d4cbdf169268"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SPL", "[", "AA_", "]"}], ":=", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"AA", "[", 
       RowBox[{"[", 
        RowBox[{"x", ";;", 
         RowBox[{"x", "+", "2"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "1", ",", "9", ",", "3"}], "}"}]}], "]"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"AA", "[", 
       RowBox[{"[", 
        RowBox[{"x", ";;", 
         RowBox[{"x", "+", "5"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "10", ",", "63", ",", "6"}], "}"}]}], "]"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"AA", "[", 
       RowBox[{"[", 
        RowBox[{"x", ";;", 
         RowBox[{"x", "+", "1"}]}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "64", ",", "123", ",", "2"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"AA", "[", 
       RowBox[{"[", "124", "]"}], "]"}], "}"}], "}"}]}], "]"}]}]], "Input",Exp\
ressionUUID->"e4e13b0a-6fab-47ab-9859-b81f344c45df"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gf", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "5", ",", "3"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tfg", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sid", "[", 
        RowBox[{"[", "x", "]"}], "]"}], ",", 
       RowBox[{"gf", "[", 
        RowBox[{"[", "x", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Sfg", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sid", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"Mod", "[", 
           RowBox[{"x", ",", "3"}], "]"}], "+", "1"}], "]"}], "]"}], ",", 
       RowBox[{"Sid", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"Mod", "[", 
           RowBox[{
            RowBox[{"x", "+", "1"}], ",", "3"}], "]"}], "+", "1"}], "]"}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"kfg", "=", 
   RowBox[{"ArrayReshape", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sid", "[", 
             RowBox[{"[", "x", "]"}], "]"}], ",", "#"}], "}"}], "&"}], ",", 
         RowBox[{"vid", "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}], ",", 
            RowBox[{
             RowBox[{"gf", "[", 
              RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}], ",", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"Mod", "[", 
                 RowBox[{"x", ",", "3"}], "]"}], "+", "1"}], "]"}], "]"}], "->",
              "Nothing"}]}], "}"}]}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], ";"}]}], "Input",ExpressionUU\
ID->"70e4b3d3-3e66-4abd-9672-9a88a844d936"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PSD", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Position", "[", 
    RowBox[{"Sid", ",", "x"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "1"}], "]"}], "]"}]}]], "Input",ExpressionUUID->\
"2e96143f-64de-4bde-af24-7293b19debb0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"EE", "=", 
   RowBox[{"{", "\n", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "2"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "5"}], "}"}]}], "}"}], ",", " ", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "3"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "\n", "}"}]}], 
  ";"}]], "Input",ExpressionUUID->"549bc0a9-5131-4c2f-97b6-04e703d6089e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"inds", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", "6"}], "}"}]}], "}"}], "}"}], ",", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "4", ",", "2", ",", "3"}], "}"}], ",", "9"}], 
        "]"}]}], "]"}], ",", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", "10"}], "]"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"acl", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"EE", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "#", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"DeleteDuplicates", "@", 
            RowBox[{"Flatten", "@", 
             RowBox[{"EE", "[", 
              RowBox[{"[", "x", "]"}], "]"}]}]}], "/.", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"#", "->", "Nothing"}], "&"}], "/@", 
             RowBox[{
              RowBox[{"EE", "[", 
               RowBox[{"[", "x", "]"}], "]"}], "[", 
              RowBox[{"[", "#", "]"}], "]"}]}], ")"}]}]}], "]"}], "&"}], ",", 
       RowBox[{"inds", "[", 
        RowBox[{"[", "x", "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Depth", "[", 
          RowBox[{"inds", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], "-", "1"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", 
       RowBox[{"Length", "[", "EE", "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zindex", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "}"}], ",", 
        RowBox[{"Sort", "[", 
         RowBox[{"#", "[", 
          RowBox[{"[", 
           RowBox[{"2", ";;", "3"}], "]"}], "]"}], "]"}]}], "]"}], "&"}], "/@", 
     RowBox[{"ArrayReshape", "[", 
      RowBox[{"acl", ",", 
       RowBox[{"{", 
        RowBox[{"60", ",", "3"}], "}"}]}], "]"}]}], "//", 
    "DeleteDuplicates"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"gindex", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"Sfg", ",", "kfg"}], "]"}]}], ";"}]}], "Input",ExpressionUUID->\
"9caa42b5-b23e-41e3-837e-39e2cbd106d8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Action1", "[", 
   RowBox[{"Z13_", ",", "CZ13_", ",", "Z23_", ",", "CZ23_", ",", "J3_"}], 
   "]"}], ":=", 
  RowBox[{"J3", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"Log", "[", 
       RowBox[{"CZ13", ".", "Z23"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"Log", "[", 
       RowBox[{"CZ13", ".", "Z13"}], "]"}]}], "-", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], " ", 
      RowBox[{"Log", "[", 
       RowBox[{"CZ23", ".", "Z23"}], "]"}]}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action2", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "Z3_", ",", "CZ3_", ",", 
    "Z4_", ",", "CZ4_", ",", "X1_", ",", "X2_", ",", "J_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Conjugate", "[", "X1", "]"}], ".", "Z1"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", ".", "X2"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ3", ".", "Z4"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"CZ1", ".", "Z1"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ4", ".", "Z4"}], "]"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", ".", "Z2"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ3", ".", "Z3"}], "]"}]}], ")"}]}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action3", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Conjugate", "[", "X1", "]"}], ".", "Z1"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", ".", "X2"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ1", ".", "Z1"}], "]"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ2", ".", "Z2"}], "]"}], ")"}]}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action4", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"LogM", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Conjugate", "[", "X1", "]"}], ".", "Z1"}], ",", "1"}], 
         "]"}], "+", 
        RowBox[{"LogM", "[", 
         RowBox[{
          RowBox[{"CZ2", ".", "X2"}], ",", "1"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ1", ".", "Z1"}], "]"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ2", ".", "Z2"}], "]"}], ")"}]}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action14", "[", 
   RowBox[{
   "Z13_", ",", "CZ13_", ",", "Z23_", ",", "CZ23_", ",", "J3_", ",", 
    "\[Gamma]_"}], "]"}], ":=", 
  RowBox[{"J3", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"Log", "[", 
       RowBox[{"CZ13", ".", "Z23"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"Log", "[", 
       RowBox[{"CZ13", ".", "Z13"}], "]"}]}], "-", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], " ", 
      RowBox[{"Log", "[", 
       RowBox[{"CZ23", ".", "Z23"}], "]"}]}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action24", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "Z3_", ",", "CZ3_", ",", 
    "Z4_", ",", "CZ4_", ",", "X1_", ",", "X2_", ",", "J_", ",", "\[Gamma]_"}],
    "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Conjugate", "[", "X1", "]"}], ".", "Z1"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", ".", "X2"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ3", ".", "Z4"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"CZ1", ".", "Z1"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ4", ".", "Z4"}], "]"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", ".", "Z2"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ3", ".", "Z3"}], "]"}]}], ")"}]}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action34", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_", ",", "\[Gamma]_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Conjugate", "[", "X1", "]"}], ".", "Z1"}], "]"}], "+", 
        RowBox[{"Log", "[", 
         RowBox[{"CZ2", ".", "X2"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ1", ".", "Z1"}], "]"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ2", ".", "Z2"}], "]"}], ")"}]}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action44", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_", ",", "\[Gamma]_"}], "]"}], ":=", 
  RowBox[{"J", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"LogM", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Conjugate", "[", "X1", "]"}], ".", "Z1"}], ",", "1"}], 
         "]"}], "+", 
        RowBox[{"LogM", "[", 
         RowBox[{
          RowBox[{"CZ2", ".", "X2"}], ",", "1"}], "]"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], "+", "1"}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ1", ".", "Z1"}], "]"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"I", " ", "\[Gamma]"}], " ", "-", "1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"Log", "[", 
        RowBox[{"CZ2", ".", "Z2"}], "]"}], ")"}]}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"Action11", "[", 
   RowBox[{"Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "J_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"CZ1", ".", "Z2"}], ",", 
    RowBox[{"CZ1", ".", "Z1"}], ",", 
    RowBox[{"CZ2", ".", "Z2"}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"Action21", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "Z3_", ",", "CZ3_", ",", 
    "Z4_", ",", "CZ4_", ",", "X1_", ",", "X2_", ",", "J_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Conjugate", "[", "X1", "]"}], ".", "Z1"}], ",", 
    RowBox[{"CZ2", ".", "X2"}], ",", 
    RowBox[{"CZ3", ".", "Z4"}], ",", 
    RowBox[{"CZ1", ".", "Z1"}], ",", 
    RowBox[{"CZ4", ".", "Z4"}], ",", 
    RowBox[{"CZ2", ".", "Z2"}], ",", 
    RowBox[{"CZ3", ".", "Z3"}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"Action31", "[", 
   RowBox[{
   "Z1_", ",", "CZ1_", ",", "Z2_", ",", "CZ2_", ",", "X1_", ",", "X2_", ",", 
    "J_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Conjugate", "[", "X1", "]"}], ".", "Z1"}], ",", 
    RowBox[{"CZ2", ".", "X2"}], ",", 
    RowBox[{"CZ1", ".", "Z1"}], ",", 
    RowBox[{"CZ2", ".", "Z2"}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS1", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Z11", ",", "Z21", ",", "CZ11", ",", "CZ21", ",", "J1"}], "}"}], 
    ",", "\n", 
    RowBox[{
     RowBox[{"Z11", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ11", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z21", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ21", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J1", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action1", "[", 
      RowBox[{"Z11", ",", "CZ11", ",", "Z21", ",", "CZ21", ",", "J1"}], 
      "]"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS2", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Z1", ",", "Z2", ",", "Z3", ",", "Z4", ",", "CZ1", ",", "CZ2", ",", 
      "CZ3", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"X1", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"X2", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z3", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ3", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z4", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ4", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action2", "[", 
      RowBox[{
      "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "Z3", ",", "CZ3", ",", 
       "Z4", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "]"}]}]}], "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ActionS3", "[", 
    RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Z1", ",", "Z2", ",", "CZ1", ",", "CZ2", ",", "X1", ",", "X2", ",", 
       "J"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"X1", "=", 
       RowBox[{"xv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"X2", "=", 
       RowBox[{"xv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Z1", "=", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"CZ1", "=", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Z2", "=", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"CZ2", "=", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"J", "=", 
       RowBox[{"jv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"acl", "==", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "1", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "3", ",", "1"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"Action4", "[", 
         RowBox[{
         "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
          "J"}], "]"}], ",", 
        RowBox[{"Action3", "[", 
         RowBox[{
         "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
          "J"}], "]"}]}], "]"}]}]}], "\n", "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"ActionS14", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "\[Gamma]_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Z11", ",", "Z21", ",", "CZ11", ",", "CZ21", ",", "J1"}], "}"}], 
    ",", "\n", 
    RowBox[{
     RowBox[{"Z11", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ11", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z21", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ21", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J1", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action14", "[", 
      RowBox[{
      "Z11", ",", "CZ11", ",", "Z21", ",", "CZ21", ",", "J1", ",", 
       "\[Gamma]"}], "]"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS24", "[", 
   RowBox[{
   "acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_", ",", "\[Gamma]_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Z1", ",", "Z2", ",", "Z3", ",", "Z4", ",", "CZ1", ",", "CZ2", ",", 
      "CZ3", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"X1", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"X2", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z3", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ3", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z4", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ4", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action24", "[", 
      RowBox[{
      "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "Z3", ",", "CZ3", ",", 
       "Z4", ",", "CZ4", ",", "X1", ",", "X2", ",", "J", ",", "\[Gamma]"}], 
      "]"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS34", "[", 
   RowBox[{
   "acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_", ",", "\[Gamma]_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Z1", ",", "Z2", ",", "CZ1", ",", "CZ2", ",", "X1", ",", "X2", ",", 
      "J"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"X1", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"X2", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"acl", "==", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "1", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "3", ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Action44", "[", 
        RowBox[{
        "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
         "J", ",", "\[Gamma]"}], "]"}], ",", 
       RowBox[{"Action34", "[", 
        RowBox[{
        "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
         "J", ",", "\[Gamma]"}], "]"}]}], "]"}]}]}], "\n", "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS11", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Z1", ",", "Z2", ",", "CZ1", ",", "CZ2", ",", "J"}], "}"}], ",", 
    "\n", 
    RowBox[{
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action11", "[", 
      RowBox[{"Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "J"}], "]"}]}]}], 
   "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionS21", "[", 
   RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Z1", ",", "Z2", ",", "Z3", ",", "Z4", ",", "CZ1", ",", "CZ2", ",", 
      "CZ3", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"X1", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"X2", "=", 
      RowBox[{"xv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z1", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ1", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z2", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ2", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z3", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ3", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"3", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Z4", "=", 
      RowBox[{"Z", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"CZ4", "=", 
      RowBox[{"ZC", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"J", "=", 
      RowBox[{"jv", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"Sid", ",", 
            RowBox[{"acl", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
         RowBox[{"acl", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"Action21", "[", 
      RowBox[{
      "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "Z3", ",", "CZ3", ",", 
       "Z4", ",", "CZ4", ",", "X1", ",", "X2", ",", "J"}], "]"}]}]}], "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ActionS31", "[", 
    RowBox[{"acl_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Z1", ",", "Z2", ",", "CZ1", ",", "CZ2", ",", "X1", ",", "X2", ",", 
       "J"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"X1", "=", 
       RowBox[{"xv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"X2", "=", 
       RowBox[{"xv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Z1", "=", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"CZ1", "=", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Z2", "=", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"CZ2", "=", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"J", "=", 
       RowBox[{"jv", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"Sid", ",", 
             RowBox[{"acl", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"acl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}]}], ";", 
      "\n", 
      RowBox[{"Action31", "[", 
       RowBox[{
       "Z1", ",", "CZ1", ",", "Z2", ",", "CZ2", ",", "X1", ",", "X2", ",", 
        "J"}], "]"}]}]}], "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SR", "[", 
    RowBox[{
    "xtt_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_", ",", "\[Gamma]_"}],
     "]"}], ":=", 
   RowBox[{"Which", "[", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "3"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ActionS1", "[", 
         RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv"}], "]"}], "&"}], "/@", 
       "xtt"}], "//", "Total"}], ",", "\n", 
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "4"}], ",", 
     RowBox[{"ActionS2", "[", 
      RowBox[{"xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}], ",", 
     "\n", 
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "2"}], ",", 
     RowBox[{"ActionS3", "[", 
      RowBox[{"xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}]}], 
    "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SRx", "[", 
    RowBox[{
    "xtt_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_", ",", "\[Gamma]_"}],
     "]"}], ":=", 
   RowBox[{"Which", "[", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "3"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ActionS14", "[", 
         RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv", ",", "\[Gamma]"}], 
         "]"}], "&"}], "/@", "xtt"}], "//", "Total"}], ",", "\n", 
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "4"}], ",", 
     RowBox[{"ActionS24", "[", 
      RowBox[{
      "xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv", ",", "\[Gamma]"}], 
      "]"}], ",", "\n", 
     RowBox[{
      RowBox[{"Length", "[", "xtt", "]"}], "==", "2"}], ",", 
     RowBox[{"ActionS34", "[", 
      RowBox[{
      "xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv", ",", "\[Gamma]"}], 
      "]"}]}], "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"SR1", "[", 
   RowBox[{"xtt_", ",", "Z_", ",", "ZC_", ",", "jv_", ",", "xv_"}], "]"}], ":=", 
  RowBox[{"Which", "[", "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"Length", "[", "xtt", "]"}], "==", "3"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"ActionS1", "[", 
       RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv"}], "]"}], "&"}], "/@", 
     "xtt"}], ",", "\n", 
    RowBox[{
     RowBox[{"Length", "[", "xtt", "]"}], "==", "4"}], ",", 
    RowBox[{"ActionS2", "[", 
     RowBox[{"xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}], ",", 
    "\n", 
    RowBox[{
     RowBox[{"Length", "[", "xtt", "]"}], "==", "2"}], ",", 
    RowBox[{"ActionS3", "[", 
     RowBox[{"xtt", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}]}], 
   "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionF", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ".", 
         RowBox[{"GG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"CGG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], ".", 
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Z", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], ".", 
         RowBox[{"ztv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"ZC", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"zctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], ".", 
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"SR", "[", 
         RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv", ",", "xv"}], "]"}], 
        "&"}], "/@", "acl"}], "//", "Total"}]}]}], "\n", "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ActionFK", "[", 
    RowBox[{"xt_", ",", "\[Gamma]_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
       "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], 
      "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"AA", "=", 
       RowBox[{"xt", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
      RowBox[{"AB", "=", 
       RowBox[{"xt", "[", 
        RowBox[{"[", 
         RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
      RowBox[{"gtv", "=", "gv"}], ";", "\n", 
      RowBox[{"gctv", "=", "gv"}], ";", "\n", 
      RowBox[{"ztv", "=", "zv"}], ";", "\n", 
      RowBox[{"zctv", "=", "zv"}], ";", "\n", 
      RowBox[{"jv", "=", "arv"}], ";", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"jv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
         RowBox[{
          RowBox[{"SPL", "[", 
           RowBox[{"AA", "+", 
            RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
       RowBox[{"ArrayReshape", "[", 
        RowBox[{
         RowBox[{"acl", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
         RowBox[{"ConjugateTranspose", "[", 
          RowBox[{"gv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"gtv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"gindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"gindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ".", 
          RowBox[{"GG", "[", 
           RowBox[{
            RowBox[{"SPL", "[", 
             RowBox[{"AA", "+", 
              RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
            RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"CGG", "[", 
           RowBox[{
            RowBox[{"SPL", "[", 
             RowBox[{"AA", "+", 
              RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
            RowBox[{"[", "x", "]"}], "]"}], "]"}], ".", 
          RowBox[{"gctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"gindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"gindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{
           RowBox[{"ztv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"zindex", "[", 
                  RowBox[{"[", 
                   RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
           RowBox[{"ZV", "[", 
            RowBox[{
             RowBox[{"zv", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"Sid", ",", 
                   RowBox[{"zindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"SPL", "[", 
               RowBox[{"AA", "+", 
                RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{
           RowBox[{"ztv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"zindex", "[", 
                  RowBox[{"[", 
                   RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
           RowBox[{"ZV", "[", 
            RowBox[{
             RowBox[{"zv", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"Sid", ",", 
                   RowBox[{"zindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"SPL", "[", 
               RowBox[{"AA", "+", 
                RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{
           RowBox[{"zctv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"zindex", "[", 
                  RowBox[{"[", 
                   RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
           RowBox[{"CZV", "[", 
            RowBox[{
             RowBox[{"zv", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"Sid", ",", 
                   RowBox[{"zindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"SPL", "[", 
               RowBox[{"AA", "+", 
                RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{
           RowBox[{"zctv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"zindex", "[", 
                  RowBox[{"[", 
                   RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
              RowBox[{"zindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
           RowBox[{"CZV", "[", 
            RowBox[{
             RowBox[{"zv", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Position", "[", 
                  RowBox[{"Sid", ",", 
                   RowBox[{"zindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"SPL", "[", 
               RowBox[{"AA", "+", 
                RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n",
          "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
      RowBox[{"Z", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"gctv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y"}], "]"}], "]"}], ".", 
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"ZC", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], ".", 
          RowBox[{"gtv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"jv", "=", 
       RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"SRx", "[", 
          RowBox[{
          "#", ",", "Z", ",", "ZC", ",", "jv", ",", "xv", ",", "\[Gamma]"}], 
          "]"}], "&"}], "/@", "acl"}], "//", "Total"}]}]}], "\n", "]"}]}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{"ActionFF", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ".", 
         RowBox[{"GG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"CGG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], ".", 
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Z", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"gctv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y"}], "]"}], "]"}], ".", 
           RowBox[{"ztv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ";", "\n", 
     RowBox[{"ZC", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"zctv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], ".", 
           RowBox[{"gtv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "4", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"Z", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "6", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"ZC", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "6", ",", "2"}], "]"}], "]"}], ",", 
       RowBox[{"jv", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "6", ",", "2"}], "]"}], "]"}]}], "}"}]}]}], "\n", 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ActionFC", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ".", 
         RowBox[{"GG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"CGG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], ".", 
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Z", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], ".", 
         RowBox[{"ztv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"ZC", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"zctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], ".", 
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
      "Z", ",", "ZC", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv"}], 
      "}"}]}]}], "\n", "]"}]}], "\n"}], "Input",ExpressionUUID->"56eb7528-\
8de4-4728-ba31-edd8b56c50a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ActionDef", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ".", 
         RowBox[{"GG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"CGG", "[", 
          RowBox[{
           RowBox[{"SPL", "[", 
            RowBox[{"AA", "+", 
             RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
           RowBox[{"[", "x", "]"}], "]"}], "]"}], ".", 
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"Sid", ",", 
               RowBox[{"gindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"gindex", "[", 
             RowBox[{"[", 
              RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Z", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"gctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], ".", 
         RowBox[{"ztv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"ZC", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"zctv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y", ",", "z"}], "]"}], "]"}], ".", 
         RowBox[{"gtv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"z", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"ActionS1", "[", 
               RowBox[{"#", ",", "Z", ",", "ZC", ",", "jv"}], "]"}], "&"}], "/@", 
             RowBox[{"acl", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "//", "Total"}], ")"}], "/", 
          RowBox[{"jv", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "4", ",", "2"}], "]"}], "]"}]}], "/", 
         "\[Gamma]"}], ")"}], "//", "Im"}], ")"}]}]}], "\n", "]"}]}]], "Input",\
ExpressionUUID->"36e17150-4d87-4eb4-85d8-e391abfb6c30"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ActionG", "[", "xt_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "AA", ",", "AB", ",", "gtv", ",", "gctv", ",", "ztv", ",", "zctv", ",", 
      "jv", ",", "Z", ",", "ZC", ",", "gvs", ",", "zvs", ",", "zcvs"}], "}"}],
     ",", "\n", 
    RowBox[{
     RowBox[{"AA", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"1", ";;", "124"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"AB", "=", 
      RowBox[{"xt", "[", 
       RowBox[{"[", 
        RowBox[{"125", ";;", "248"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"gtv", "=", "gv"}], ";", "\n", 
     RowBox[{"gctv", "=", "gv"}], ";", "\n", 
     RowBox[{"ztv", "=", "zv"}], ";", "\n", 
     RowBox[{"zctv", "=", "zv"}], ";", "\n", 
     RowBox[{"jv", "=", "arv"}], ";", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"jv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}], "+=", 
        RowBox[{
         RowBox[{"SPL", "[", 
          RowBox[{"AA", "+", 
           RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"43", ",", "1"}], "]"}], "]"}]}], "&"}], "/@", 
      RowBox[{"ArrayReshape", "[", 
       RowBox[{
        RowBox[{"acl", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "3"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "y"}], "]"}], "]"}], "=", 
        RowBox[{"ConjugateTranspose", "[", 
         RowBox[{"gv", "[", 
          RowBox[{"[", 
           RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gtv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{"GG", "[", 
         RowBox[{
          RowBox[{"SPL", "[", 
           RowBox[{"AA", "+", 
            RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
          RowBox[{"[", "x", "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"gctv", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"Sid", ",", 
              RowBox[{"gindex", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"gindex", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
        RowBox[{"CGG", "[", 
         RowBox[{
          RowBox[{"SPL", "[", 
           RowBox[{"AA", "+", 
            RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
          RowBox[{"[", "x", "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "12"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"ztv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"ZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"zctv", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{"zindex", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
             RowBox[{"zindex", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"CZV", "[", 
           RowBox[{
            RowBox[{"zv", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{"zindex", "[", 
                   RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "3"}], "]"}], "]"}], ",", 
               RowBox[{"zindex", "[", 
                RowBox[{"[", 
                 RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"SPL", "[", 
              RowBox[{"AA", "+", 
               RowBox[{"I", " ", "AB"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"x", "+", "12"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
        "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "30"}], "}"}]}], "]"}], ";", "\n", 
     RowBox[{"jv", "=", 
      RowBox[{"jv", "*", "\[Lambda]"}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"gtv", ",", "gctv", ",", "ztv", ",", "zctv"}], "}"}]}]}], "\n", 
   "]"}]}]], "Input",ExpressionUUID->"232265d2-e25a-4e4b-b6a2-cf90f99bd59d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Generate Boundary parameters and zero critical point", "Subtitle",ExpressionUUID->"49574a0f-c4c9-4c06-9427-600c6d52384e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MOD", "[", "g_", "]"}], ":=", 
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{"Inverse", "[", 
     RowBox[{"ConjugateTranspose", "[", 
      RowBox[{"Inverse", "[", "g", "]"}], "]"}], "]"}], ",", 
    RowBox[{"10", "^", 
     RowBox[{"(", 
      RowBox[{"-", "14"}], ")"}]}]}], "]"}]}]], "Input",ExpressionUUID->\
"ab0dc9ed-e778-4a38-bbb3-90a1879d9dbd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"gv", ",", "zv", ",", "xv", ",", "arv", ",", "sol", ",", "ask"}], 
    "}"}], "=", 
   RowBox[{"Boundary", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", "ccr", ",", "3", 
     ",", "Vertex"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"gv", ",", "zv", ",", "xv", ",", "arv"}], "}"}], "=", 
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"gv", ",", "zv", ",", "xv", ",", "arv"}], "}"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"(", 
       RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"gvs", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Inverse", "[", 
         RowBox[{
          RowBox[{"gv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", 
             RowBox[{"Tfg", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ".", 
          RowBox[{"MatrixExp", "[", 
           RowBox[{"I", "*", "0.3", "*", 
            RowBox[{"PauliMatrix", "[", "1", "]"}]}], "]"}]}], "]"}], ".", 
        "#"}], "&"}], "/@", 
      RowBox[{"gv", "[", 
       RowBox[{"[", "x", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zvss", "=", 
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"MOD", "[", 
            RowBox[{
             RowBox[{"gv", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", 
                RowBox[{"Tfg", "[", 
                 RowBox[{"[", 
                  RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], ".", 
             RowBox[{"MatrixExp", "[", 
              RowBox[{"I", "*", "0.3", "*", 
               RowBox[{"PauliMatrix", "[", "1", "]"}]}], "]"}]}], "]"}], ".", 
           "#"}], "&"}], ",", 
         RowBox[{"zv", "[", 
          RowBox[{"[", "x", "]"}], "]"}], ",", 
         RowBox[{"{", "2", "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"(", 
       RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zvss", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"zvss", "[", 
         RowBox[{"[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "1"}], "]"}], "]"}], "!=", 
        "0"}], ",", 
       RowBox[{
        RowBox[{"zvss", "[", 
         RowBox[{"[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}], "/", 
        RowBox[{"zvss", "[", 
         RowBox[{"[", 
          RowBox[{"t", ",", "x", ",", "y", ",", "1"}], "]"}], "]"}]}], ",", 
       RowBox[{"zvss", "[", 
        RowBox[{"[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "1", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"gv", "=", "gvs"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zv", "=", "zvss"}], ";"}]}], "Input",ExpressionUUID->"6137e97a-\
04be-4ea6-b2f3-2e624a1f28ed"],

Cell[BoxData[{
 RowBox[{"Deficient", "[", 
  RowBox[{"vid", ",", "Sid", ",", 
   RowBox[{"asd", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}], "\n", 
 RowBox[{"ActionDef", "[", 
  RowBox[{"ConstantArray", "[", 
   RowBox[{"0", ",", "248"}], "]"}], "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"CrTests2", "[", 
           RowBox[{"x", ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}], ",", 
         RowBox[{"Subsets", "[", 
          RowBox[{
           RowBox[{"vid", "/.", 
            RowBox[{
             RowBox[{"Sid", "[", 
              RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}]}], ",", 
           RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"-", "16"}]}]}], "]"}], "//", "Flatten"}], "//", "Norm"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Chop", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"x", "==", "y"}], ",", "Nothing", ",", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"CrTest1", "[", 
              RowBox[{
               RowBox[{"Sid", "[", 
                RowBox[{"[", "x", "]"}], "]"}], ",", 
               RowBox[{"Sid", "[", 
                RowBox[{"[", "y", "]"}], "]"}], ",", "#"}], "]"}], "}"}], 
            "&"}], ",", 
           RowBox[{"vid", "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"Sid", "[", 
                RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}], ",", 
              RowBox[{
               RowBox[{"Sid", "[", 
                RowBox[{"[", "y", "]"}], "]"}], "->", "Nothing"}]}], 
             "}"}]}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"10", "^", 
      RowBox[{"-", "16"}]}]}], "]"}], "//", "Flatten"}], "//", "Norm"}], "\n", 
 RowBox[{"Chop", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"CrTests3", "[", 
          RowBox[{
           RowBox[{"Sid", "[", 
            RowBox[{"[", "x", "]"}], "]"}], ",", "#"}], "]"}], "&"}], ",", 
        RowBox[{"vid", "/.", 
         RowBox[{
          RowBox[{"Sid", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "->", "Nothing"}]}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], "//", "Norm"}], ",", 
   RowBox[{"10", "^", 
    RowBox[{"-", "16"}]}]}], "]"}]}], "Input",ExpressionUUID->"e7f2e7e9-74c4-\
4f2b-adf0-e484e149a95b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"DerSym", "[", 
    RowBox[{"x_", ",", "aa_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"aa1", "=", "aa"}], ",", "cmc"}], "}"}], ",", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{"aa1", "[", 
        RowBox[{"[", "x", "]"}], "]"}], "=", "cmc"}], ";", "\n", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"ActionF", "[", "aa1", "]"}], ",", "cmc"}], "]"}], "/.", 
       RowBox[{"cmc", "->", 
        RowBox[{"aa", "[", 
         RowBox[{"[", "x", "]"}], "]"}]}]}]}]}], "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"DerSym2", "[", 
   RowBox[{"x_", ",", "y_", ",", "aa_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"aa1", "=", "aa"}], ",", "cmc1", ",", "cmc2", ",", "re", ",", 
      "res"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"x", "==", "y"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"aa1", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "=", "cmc1"}], ";", 
         RowBox[{"re", "=", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"ActionF", "[", "aa1", "]"}], ",", "cmc1"}], "]"}], 
             ",", "cmc1"}], "]"}], "/.", 
           RowBox[{"cmc1", "->", 
            RowBox[{"aa", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"aa1", "[", 
           RowBox[{"[", "x", "]"}], "]"}], "=", "cmc1"}], ";", 
         RowBox[{
          RowBox[{"aa1", "[", 
           RowBox[{"[", "y", "]"}], "]"}], "=", "cmc2"}], ";", 
         RowBox[{"re", "=", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"ActionF", "[", "aa1", "]"}], ",", "cmc1"}], "]"}], ",",
             "cmc2"}], "]"}]}], ";"}], "}"}]}], "]"}], ";", "\n", "\t", 
     RowBox[{"re", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"cmc1", "->", 
         RowBox[{"aa", "[", 
          RowBox[{"[", "x", "]"}], "]"}]}], ",", 
        RowBox[{"cmc2", "->", 
         RowBox[{"aa", "[", 
          RowBox[{"[", "y", "]"}], "]"}]}]}], "}"}]}]}]}], "\n", 
   "]"}]}], "\n"}], "Input",ExpressionUUID->"095dfe27-a520-4fed-8b02-\
beff978bd53c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AAC", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", "248"}], "]"}]}], ";"}]], "Input",ExpressionUUID->\
"b9d3b884-6b94-4c2f-915f-b7dfd35a2ff6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"FileExistsQ", "[", "tempfile6", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Get", "[", "tempfile6", "]"}], ";"}], "}"}], ",", 
    RowBox[{"{", "\n", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"t1", "=", "248"}], ";", 
        RowBox[{"t2", "=", "124"}], ";", "\n", 
        RowBox[{"AZ", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"ToExpression", "[", 
            RowBox[{"\"\<XX\>\"", "<>", 
             RowBox[{"ToString", "[", "x", "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "1", ",", "t1"}], "}"}]}], "]"}]}], ";", "\n", 
        RowBox[{"asxx", "=", 
         RowBox[{"ParallelTable", "[", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"ActionFK", "[", 
                RowBox[{"AZ", ",", "XC"}], "]"}], ",", 
               RowBox[{"AZ", "[", 
                RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", 
             RowBox[{"AZ", "[", 
              RowBox[{"[", "y", "]"}], "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "1", ",", "t2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "1", ",", "t2"}], "}"}]}], "]"}]}], ";", "\n", 
        RowBox[{"asx1", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"Re", "[", 
              RowBox[{"ParallelTable", "[", 
               RowBox[{
                RowBox[{"D", "[", 
                 RowBox[{
                  RowBox[{"ActionFK", "[", 
                   RowBox[{"AZ", ",", "XC"}], "]"}], ",", 
                  RowBox[{"AZ", "[", 
                   RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"x", ",", "1", ",", "t2"}], "}"}]}], "]"}], "]"}]}], 
            ",", 
            RowBox[{"Im", "[", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{"ActionFK", "[", 
                  RowBox[{"AZ", ",", "XC"}], "]"}], ",", 
                 RowBox[{"AZ", "[", 
                  RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "1", ",", "t2"}], "}"}]}], "]"}], "]"}]}], 
           "}"}], "]"}]}], ";", "\n", 
        RowBox[{"asx3", "=", 
         RowBox[{"ParallelTable", "[", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"ActionFK", "[", 
              RowBox[{"AZ", ",", "XC"}], "]"}], ",", 
             RowBox[{"AZ", "[", 
              RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "1", ",", "t2"}], "}"}]}], "]"}]}], ";", "\n", 
        RowBox[{
         RowBox[{"F3", "[", 
          RowBox[{"ppp_", ",", "xc_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"ActionFK", "[", 
           RowBox[{"AZ", ",", "xc"}], "]"}], "/.", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"AZ", "[", 
              RowBox[{"[", "a", "]"}], "]"}], "->", 
             RowBox[{"ppp", "[", 
              RowBox[{"[", "a", "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"a", ",", "1", ",", "t1"}], "}"}]}], "]"}]}]}], ";", 
        "\n", 
        RowBox[{
         RowBox[{"F1", "[", 
          RowBox[{"ppp_", ",", "xc_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"asx1", "/.", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"AZ", "[", 
               RowBox[{"[", "a", "]"}], "]"}], "->", 
              RowBox[{"ppp", "[", 
               RowBox[{"[", "a", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"a", ",", "1", ",", "t1"}], "}"}]}], "]"}]}], "/.", 
          RowBox[{"XC", "->", "xc"}]}]}], ";", "\n", 
        RowBox[{
         RowBox[{"F2", "[", 
          RowBox[{"ppp_", ",", "xc_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"asxx", "/.", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"AZ", "[", 
               RowBox[{"[", "a", "]"}], "]"}], "->", 
              RowBox[{"ppp", "[", 
               RowBox[{"[", "a", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"a", ",", "1", ",", "t1"}], "}"}]}], "]"}]}], "/.", 
          RowBox[{"XC", "->", "xc"}]}]}], ";", "\n", 
        RowBox[{
         RowBox[{"F4", "[", 
          RowBox[{"ppp_", ",", "xc_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"asx3", "/.", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"AZ", "[", 
               RowBox[{"[", "a", "]"}], "]"}], "->", 
              RowBox[{"ppp", "[", 
               RowBox[{"[", "a", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"a", ",", "1", ",", "t1"}], "}"}]}], "]"}]}], "/.", 
          RowBox[{"XC", "->", "xc"}]}]}], ";", "\n", 
        RowBox[{"P1", "=", 
         RowBox[{
          RowBox[{"Compile", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"ppp", ",", "_Real", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xc", ",", "_Real"}], "}"}]}], "}"}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"F1", "[", 
              RowBox[{"ppp", ",", "xc"}], "]"}], "]"}], ",", 
            RowBox[{"RuntimeAttributes", "->", 
             RowBox[{"{", "Listable", "}"}]}], ",", 
            RowBox[{"Parallelization", "->", "True"}], ",", 
            RowBox[{"CompilationTarget", "->", "\"\<C\>\""}]}], "]"}], "//", 
          "Quiet"}]}], ";", "\n", 
        RowBox[{"P2", "=", 
         RowBox[{
          RowBox[{"Compile", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"ppp", ",", "_Real", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xc", ",", "_Real"}], "}"}]}], "}"}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"F2", "[", 
              RowBox[{"ppp", ",", "xc"}], "]"}], "]"}], ",", 
            RowBox[{"RuntimeAttributes", "->", 
             RowBox[{"{", "Listable", "}"}]}], ",", 
            RowBox[{"Parallelization", "->", "True"}], ",", 
            RowBox[{"CompilationTarget", "->", "\"\<C\>\""}]}], "]"}], "//", 
          "Quiet"}]}], ";", "\n", 
        RowBox[{"P3", "=", 
         RowBox[{
          RowBox[{"Compile", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"ppp", ",", "_Real", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xc", ",", "_Real"}], "}"}]}], "}"}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"F3", "[", 
              RowBox[{"ppp", ",", "xc"}], "]"}], "]"}], ",", 
            RowBox[{"RuntimeAttributes", "->", 
             RowBox[{"{", "Listable", "}"}]}], ",", 
            RowBox[{"Parallelization", "->", "True"}], ",", 
            RowBox[{"CompilationTarget", "->", "\"\<C\>\""}]}], "]"}], "//", 
          "Quiet"}]}], ";", "\n", 
        RowBox[{"P4", "=", 
         RowBox[{
          RowBox[{"Compile", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"ppp", ",", "_Real", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xc", ",", "_Real"}], "}"}]}], "}"}], ",", 
            RowBox[{"Evaluate", "[", 
             RowBox[{"F4", "[", 
              RowBox[{"ppp", ",", "xc"}], "]"}], "]"}], ",", 
            RowBox[{"RuntimeAttributes", "->", 
             RowBox[{"{", "Listable", "}"}]}], ",", 
            RowBox[{"Parallelization", "->", "True"}], ",", 
            RowBox[{"CompilationTarget", "->", "\"\<C\>\""}]}], "]"}], "//", 
          "Quiet"}]}], ";", "\n", 
        RowBox[{"DumpSave", "[", 
         RowBox[{"tempfile6", ",", 
          RowBox[{"{", 
           RowBox[{"P1", ",", "P2", ",", "P3", ",", "P4"}], "}"}]}], "]"}], 
        ";"}], "//", "Quite"}], ";"}], "\n", "}"}]}], "]"}], ";"}]], "Input",E\
xpressionUUID->"337f751f-d259-4716-b940-4066f34f8d7a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Parity flip operation", "Subtitle",ExpressionUUID->"7da7be1d-682c-4ec5-8fdf-3dd61527c152"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"San", "[", "gv_", "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", "\n", 
      RowBox[{
      "a1", ",", "a2", ",", "Ress", ",", "a3", ",", "x1", ",", "x2", ",", 
       "y1", ",", "a4"}], " ", "\n", "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"a1", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{"Inverse", "[", 
         RowBox[{
          RowBox[{"ConjugateTranspose", "[", "gv", "]"}], ".", "gv"}], "]"}], 
        "]"}]}], ";", "\n", 
      RowBox[{"a2", "=", 
       RowBox[{"ZEXP", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x1", ",", "x2"}], "}"}], ",", 
         RowBox[{"{", "y1", "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"Ress", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ReIm", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"(", 
              RowBox[{"a1", ".", 
               RowBox[{"ConjugateTranspose", "[", "a1", "]"}]}], ")"}], "]"}],
             "[", 
            RowBox[{"[", 
             RowBox[{"2", ";;", "4"}], "]"}], "]"}], "]"}], "==", 
          RowBox[{"ComplexExpand", "[", 
           RowBox[{"ReIm", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", 
              RowBox[{"a2", ".", 
               RowBox[{"ConjugateTranspose", "[", "a2", "]"}]}], "]"}], "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;", "4"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x1", ",", "x2", ",", "y1"}], "}"}]}], "]"}]}], ";", "\n", 
      RowBox[{"a3", "=", 
       RowBox[{"a2", "/.", 
        RowBox[{"Ress", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\n", 
      RowBox[{"a4", "=", 
       RowBox[{"Chop", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ConjugateTranspose", "[", "gv", "]"}], ".", "gv"}], ")"}],
          ".", "a3"}], "]"}]}], ";", "\n", 
      RowBox[{"{", 
       RowBox[{"a3", ",", "a4"}], "}"}]}]}], "\n", "]"}]}], "\n"}]], "Input",E\
xpressionUUID->"f2bf783b-df41-495f-a36e-2c908176c889"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Zparity", "[", "b_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\n", "zsc", "\n", "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"zsc", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "==", "1"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"gv", "[", 
              RowBox[{"[", 
               RowBox[{"x", ",", "y"}], "]"}], "]"}], ".", 
             RowBox[{"ConjugateTranspose", "[", 
              RowBox[{"gv", "[", 
               RowBox[{"[", 
                RowBox[{"x", ",", "y"}], "]"}], "]"}], "]"}], ".", "#"}], 
            "&"}], "/@", 
           RowBox[{"zv", "[", 
            RowBox[{"[", 
             RowBox[{"x", ",", "y"}], "]"}], "]"}]}], ",", 
          RowBox[{"zv", "[", 
           RowBox[{"[", 
            RowBox[{"x", ",", "y"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";", "\n", 
     RowBox[{"Chop", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zsc", "[", 
             RowBox[{"[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "1"}], "]"}], "]"}], "!=",
             "0"}], ",", 
           RowBox[{
            RowBox[{"zsc", "[", 
             RowBox[{"[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}], "/", 
            RowBox[{"zsc", "[", 
             RowBox[{"[", 
              RowBox[{"t", ",", "x", ",", "y", ",", "1"}], "]"}], "]"}]}], 
           ",", 
           RowBox[{"zsc", "[", 
            RowBox[{"[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "1", ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", 
       RowBox[{"10", "^", 
        RowBox[{"(", 
         RowBox[{"-", "14"}], ")"}]}]}], "]"}]}]}], "\n", "]"}]}]], "Input",Ex\
pressionUUID->"09d8eb92-3b76-413f-bab8-d612c8066c4b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Gparity", "[", "k_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a1", ",", "a2", ",", 
      RowBox[{"cfg", "=", 
       RowBox[{
        RowBox[{"k", "*", "Sfg"}], "/.", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], "->", "Nothing"}]}]}]}], "\n", 
     "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"a1", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"San", "[", 
           RowBox[{"gv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{
               RowBox[{"Position", "[", 
                RowBox[{"Sid", ",", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "cfg"}], "]"}]}], ";", 
     "\n", 
     RowBox[{"a2", "=", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"k", "[", 
             RowBox[{"[", "y", "]"}], "]"}], "==", "1"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Inverse", "@", 
              RowBox[{"ConjugateTranspose", "@", "#"}]}], "&"}], "/@", 
            RowBox[{"Chop", "[", 
             RowBox[{
              RowBox[{"gv", "[", 
               RowBox[{"[", "y", "]"}], "]"}], ",", 
              RowBox[{"10", "^", 
               RowBox[{"(", 
                RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], ",", 
           RowBox[{"Chop", "[", 
            RowBox[{
             RowBox[{"gv", "[", 
              RowBox[{"[", "y", "]"}], "]"}], ",", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "14"}], ")"}]}]}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "1", ",", "3"}], "}"}]}], "]"}], "//", "Chop"}]}],
      ";", "\n", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"a2", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{
                 RowBox[{"cfg", "[", 
                  RowBox[{"[", "x", "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"cfg", "[", 
               RowBox[{"[", "x", "]"}], "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"a2", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{
                   RowBox[{"cfg", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"cfg", "[", 
                 RowBox[{"[", "x", "]"}], "]"}], "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], ".", 
            RowBox[{"a1", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}], "]"}]}], ";", "\n", 
         RowBox[{
          RowBox[{"a2", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"Sid", ",", 
                RowBox[{
                 RowBox[{"cfg", "[", 
                  RowBox[{"[", "x", "]"}], "]"}], "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"cfg", "[", 
               RowBox[{"[", "x", "]"}], "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "=", 
          RowBox[{"Chop", "[", 
           RowBox[{
            RowBox[{"a2", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"Sid", ",", 
                  RowBox[{
                   RowBox[{"cfg", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"cfg", "[", 
                 RowBox[{"[", "x", "]"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], ".", 
            RowBox[{"a1", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}], "]"}]}], ";"}], "\n", "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", 
         RowBox[{"Length", "[", "cfg", "]"}]}], "}"}]}], "]"}], ";", "\n", 
     "a2"}]}], "\n", "]"}]}]], "Input",ExpressionUUID->"782fc731-c242-434e-\
a4f0-393e30f8e9f8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"AZ", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"\"\<XX\>\"", "<>", 
       RowBox[{"ToString", "[", "x", "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "124"}], "}"}]}], "]"}]}], ";"}]], "Input",E\
xpressionUUID->"4a3930e9-a8c2-4e39-918f-33b33f5dc9ca"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ParitySol", "[", "xx_", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"as1", ",", "as2", ",", "ax1", ",", "AS"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"AS", "=", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"AZ", "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "124"}], "]"}], "]"}], ",", 
        RowBox[{"ConstantArray", "[", 
         RowBox[{"0", ",", "124"}], "]"}]}], "]"}]}], ";", "\n", 
     RowBox[{"as1", "=", 
      RowBox[{
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ComplexExpand", "[", 
             RowBox[{"ReIm", "[", 
              RowBox[{
               RowBox[{"Flatten", "[", 
                RowBox[{
                 RowBox[{"ActionG", "[", "AS", "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", 
                   RowBox[{
                    RowBox[{"Position", "[", 
                    RowBox[{"Sid", ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                   RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ";;", "3"}], "]"}], "]"}], "]"}], "]"}], "==", 
            RowBox[{"Chop", "[", 
             RowBox[{"ReIm", "[", 
              RowBox[{
               RowBox[{"Flatten", "[", 
                RowBox[{
                 RowBox[{"Inverse", "[", 
                  RowBox[{"gv", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Position", "[", 
                    RowBox[{"Sid", ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], 
                  "]"}], ".", 
                 RowBox[{
                  RowBox[{"Gparity", "[", "xx", "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"Position", "[", 
                    RowBox[{"Sid", ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "1"}], "]"}], "]"}]}], "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"gindex", "[", 
                    RowBox[{"[", 
                    RowBox[{"x", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}]}], 
                "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ";;", "3"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "1", ",", 
             RowBox[{"Length", "[", "gindex", "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"AZ", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", "63"}], "]"}], "]"}], ",", "Reals"}], "]"}], 
       "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
     RowBox[{"as2", "=", 
      RowBox[{
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"ComplexExpand", "[", 
             RowBox[{"ReIm", "[", 
              RowBox[{
               RowBox[{"ActionG", "[", "AS", "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"3", ",", 
                 RowBox[{"PSD", "[", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ",", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ",", "2"}], "]"}], "]"}], 
              "]"}], "]"}], "==", 
            RowBox[{"ReIm", "[", 
             RowBox[{
              RowBox[{"Zparity", "[", "xx", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"PSD", "[", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ",", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "3", "]"}], "]"}], ",", "2"}], "]"}], "]"}], 
             "]"}]}], "&"}], "/@", "zindex"}], ",", "\n", 
         RowBox[{"AZ", "[", 
          RowBox[{"[", 
           RowBox[{"64", ";;", "123"}], "]"}], "]"}]}], "\n", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\n", 
     RowBox[{"ax1", "=", 
      RowBox[{"Chop", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"AZ", "[", 
            RowBox[{"[", 
             RowBox[{"1", ";;", "123"}], "]"}], "]"}], ",", 
           RowBox[{"ConstantArray", "[", 
            RowBox[{"0", ",", "125"}], "]"}]}], "]"}], "/.", "as1"}], "/.", 
        "as2"}], "]"}]}], ";", "\n", 
     RowBox[{"ax1", "//", "Chop"}]}]}], "\n", "]"}]}]], "Input",ExpressionUUID\
->"a3773b62-3c9a-4520-abdc-cb8568385fd4"],

Cell[BoxData[
 RowBox[{"cs1", "=", 
  RowBox[{"ArrayReshape", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"z", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"8", ",", "3"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\
"e97157a8-5af2-4c0b-b808-7ea990b1be15"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cs2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"ParitySol", "[", "#", "]"}], "&"}], "/@", "cs1"}]}], 
  ";"}]], "Input",ExpressionUUID->"35711946-65ee-4a78-8236-469ea9f053d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.8"}], ";"}]], "Code",ExpressionUUID->"dedad196-f693-4ea0-bc7e-f425c81af544"],

Cell[BoxData[
 RowBox[{"cs2", ";"}]], "Code",ExpressionUUID->"fcf8fd1d-af54-433d-a523-4c504236fac5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"MinMax", "[", "#", "]"}], "&"}], "/@", "cx"}]], "Code",ExpressionU\
UID->"9c0555c6-d781-4e82-8a12-256d87739d2b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Norm", "[", "#", "]"}], "&"}], "/@", "cs2"}]], "Code",ExpressionUU\
ID->"76bfce15-7e42-48f2-8229-889f8c578763"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"P3", "[", 
    RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], "/@", "cs2"}]], "Code",Expre\
ssionUUID->"9e946f4d-3090-4cdf-a6cf-594e39e23408"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"P3", "[", 
     RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], "/@", "cs2"}], "//", 
  "MatrixForm"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ActionDef", "[", "#", "]"}], "&"}], "/@", "cs2"}], "//", 
  "MatrixForm"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Norm", "@", 
      RowBox[{"P1", "[", 
       RowBox[{"#", ",", "\[Gamma]"}], "]"}]}], ")"}], "&"}], "/@", "cs2"}], "//",
   "MatrixForm"}]}], "Input",ExpressionUUID->"1400fcd2-f713-40d6-9347-\
70542f64c5a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Perturbative finder", "Subtitle",ExpressionUUID->"e8703036-cf7e-4fb5-a1e5-ddf743b2bbad"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FindCrit", "[", 
    RowBox[{"ccs_", ",", "ga_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"TEMP", "=", "ccs"}], ",", 
       RowBox[{"iis", "=", "ccs"}], ",", "kk", ",", "kks", ",", "ks", ",", 
       "d1", ",", "d2", ",", "C1", ",", "C1s", ",", "cc1", ",", "a"}], "}"}], 
     ",", "\n", 
     RowBox[{
      RowBox[{"kk", "=", "0"}], ";", "\n", 
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{"kk", "<", "9000"}], ",", 
        RowBox[{"{", "\n", 
         RowBox[{
          RowBox[{"d1", "=", 
           RowBox[{"P4", "[", 
            RowBox[{"TEMP", ",", "ga"}], "]"}]}], ";", "\n", 
          RowBox[{"d2", "=", 
           RowBox[{"P2", "[", 
            RowBox[{"TEMP", ",", "ga"}], "]"}]}], ";", "\n", 
          RowBox[{"kks", "=", 
           RowBox[{"Min", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Abs", "[", "#", "]"}], "&"}], "/@", 
             RowBox[{"Eigenvalues", "[", "d2", "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"kks", "<", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "6"}], ")"}]}]}], ",", 
            RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"kks", ">", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "5"}], ")"}]}]}], ",", 
            RowBox[{"ks", "=", "0"}], ",", 
            RowBox[{"ks", "=", "1"}]}], "]"}], ";", "\n", 
          RowBox[{"C1", "=", 
           RowBox[{
            RowBox[{"Inverse", "[", "d2", "]"}], ".", "d1"}]}], ";", "\n", 
          RowBox[{"C1s", "=", 
           RowBox[{"Join", "[", 
            RowBox[{
             RowBox[{"Re", "[", "C1", "]"}], ",", 
             RowBox[{"Im", "[", "C1", "]"}]}], "]"}]}], ";", "\n", 
          RowBox[{"cc1", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"Norm", "@", 
              RowBox[{"P4", "[", 
               RowBox[{"TEMP", ",", "ga"}], "]"}]}], ")"}], "-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Norm", "@", 
                RowBox[{"P4", "[", 
                 RowBox[{
                  RowBox[{"TEMP", "-", 
                   RowBox[{"C1s", "*", "#"}]}], ",", "ga"}], "]"}]}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"10", "^", 
                  RowBox[{"(", 
                   RowBox[{"-", "#"}], ")"}]}], "&"}], "/@", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Range", "[", "6", "]"}], "-", "1"}], ")"}]}], 
               ")"}]}], ")"}]}]}], ";", "\n", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", "cc1", "]"}], "<=", 
             RowBox[{"10", "^", 
              RowBox[{"(", 
               RowBox[{"-", "16"}], ")"}]}]}], ",", 
            RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\n", 
          RowBox[{"a", "=", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"10", "^", 
                RowBox[{"(", 
                 RowBox[{"-", "#"}], ")"}]}], "&"}], "/@", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Range", "[", "6", "]"}], "-", "1"}], ")"}]}], ")"}], 
            "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"cc1", ",", 
                RowBox[{"Max", "[", "cc1", "]"}]}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ";", 
          "\n", 
          RowBox[{"TEMP", "=", 
           RowBox[{"TEMP", "-", 
            RowBox[{"C1s", "*", "a"}]}]}], ";", "\n", 
          RowBox[{"kk", "++"}]}], "\n", "}"}]}], "]"}], ";", "\n", "TEMP"}]}],
     "\n", "]"}]}], "\n", "\n"}]], "Code",ExpressionUUID->"1e1124d7-5b3a-4dd1-\
bf91-4105403ca600"],

Cell[BoxData[
 RowBox[{"\[Gamma]", "=", "0.01"}]], "Code",ExpressionUUID->"2eacb367-71af-498a-b824-dacac78cca48"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cx", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"FindCrit", "[", 
       RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], ",", "cs2"}], "]"}]}], 
  ";"}]], "Code",ExpressionUUID->"af28bce1-b999-4ebf-a970-36c53322ea8e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Norm", "@", 
    RowBox[{"P4", "[", 
     RowBox[{"#", ",", "\[Gamma]"}], "]"}]}], "&"}], "/@", "cx"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Norm", "@", 
    RowBox[{"P4", "[", 
     RowBox[{"#", ",", "\[Gamma]"}], "]"}]}], "&"}], "/@", "cs2"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"P3", "[", 
    RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], "/@", "cx"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"P3", "[", 
    RowBox[{"#", ",", "\[Gamma]"}], "]"}], "&"}], "/@", "cs2"}]}], "Code",Expr\
essionUUID->"f6302555-0d42-4a29-b788-a77ad59170c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DistanceMatrix", "[", 
   RowBox[{"Join", "[", "cx", "]"}], "]"}], "//", "MatrixForm"}]], "Code",Expr\
essionUUID->"7029314d-9c2b-4ee3-94db-81585a38e172"]
}, Open  ]]
},
WindowSize->{775, 865},
WindowMargins->{{Automatic, 337}, {Automatic, 27}},
TaggingRules->Association[
 "CodeFormatter" -> 
  Association[
   "ToolbarState" -> False, "ToolbarAccentColor" -> RGBColor["#2497b7"]]],
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (2021\:5e747\:670823\
\:65e5)",
StyleDefinitions->"Script.nb",
ExpressionUUID->"8ba909af-298d-4b79-b5c8-209d6e048510"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 85, 0, 53, "Subtitle",ExpressionUUID->"6e477691-23a6-458d-a7f0-8d1bbaf08c10"],
Cell[668, 24, 128, 1, 24, "Input",ExpressionUUID->"6f151e91-0678-47e2-b503-1cf4088f7d67"],
Cell[799, 27, 364, 11, 105, "Input",ExpressionUUID->"6b92a6f2-73c2-4990-bc19-3c58f1f0b9b9"],
Cell[1166, 40, 2864, 82, 385, "Input",ExpressionUUID->"c20aecf8-2041-4f1e-883e-fe88b2392d1d"],
Cell[4033, 124, 227, 6, 24, "Input",ExpressionUUID->"d4ad86ba-7c68-45fa-b327-ff0f4c446827"],
Cell[4263, 132, 461, 14, 24, "Input",ExpressionUUID->"bc363d85-e473-4613-a2ce-00da8d34f08c"],
Cell[4727, 148, 235, 6, 24, "Input",ExpressionUUID->"dc773892-a3cb-4405-92bc-8feab608410c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4999, 159, 98, 0, 53, "Subtitle",ExpressionUUID->"9e22d5d8-f0b8-4542-ad14-8e9594883c44"],
Cell[5100, 161, 565, 15, 24, "Input",ExpressionUUID->"b0cfb57d-d40f-4050-bf87-ca0a387cc131"],
Cell[5668, 178, 3545, 103, 305, "Input",ExpressionUUID->"e874a38a-3d85-4b07-b646-8e99eecba2c5"],
Cell[9216, 283, 1646, 51, 105, "Input",ExpressionUUID->"056c32d1-7820-4e18-9569-bad7f8ad50e0"],
Cell[10865, 336, 3611, 101, 245, "Input",ExpressionUUID->"c3c25561-59c0-4bd6-9349-681b46163601"],
Cell[14479, 439, 1131, 34, 85, "Input",ExpressionUUID->"dadba77e-8029-47e6-87e5-adb8b7b04b0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15647, 478, 81, 0, 53, "Subtitle",ExpressionUUID->"a35d67f8-00d1-4b34-9b2d-a227c2099a87"],
Cell[15731, 480, 6256, 198, 485, "Input",ExpressionUUID->"cc4ce62e-c22b-41c5-82cd-403829c3b6a1"],
Cell[21990, 680, 2464, 71, 225, "Input",ExpressionUUID->"8e88f853-140a-4c46-a261-e4da30328510"],
Cell[24457, 753, 1638, 51, 205, "Input",ExpressionUUID->"3990fc3c-5454-4384-a7bb-d4cbdf169268"],
Cell[26098, 806, 1101, 33, 45, "Input",ExpressionUUID->"e4e13b0a-6fab-47ab-9859-b81f344c45df"],
Cell[27202, 841, 2248, 70, 165, "Input",ExpressionUUID->"70e4b3d3-3e66-4abd-9672-9a88a844d936"],
Cell[29453, 913, 278, 8, 24, "Input",ExpressionUUID->"2e96143f-64de-4bde-af24-7293b19debb0"],
Cell[29734, 923, 5117, 163, 425, "Input",ExpressionUUID->"549bc0a9-5131-4c2f-97b6-04e703d6089e"],
Cell[34854, 1088, 2747, 86, 145, "Input",ExpressionUUID->"9caa42b5-b23e-41e3-837e-39e2cbd106d8"],
Cell[37604, 1176, 116568, 3258, 5705, "Input",ExpressionUUID->"56eb7528-8de4-4728-ba31-edd8b56c50a4"],
Cell[154175, 4436, 14095, 377, 705, "Input",ExpressionUUID->"36e17150-4d87-4eb4-85d8-e391abfb6c30"],
Cell[168273, 4815, 11331, 300, 625, "Input",ExpressionUUID->"232265d2-e25a-4e4b-b6a2-cf90f99bd59d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[179641, 5120, 127, 0, 53, "Subtitle",ExpressionUUID->"49574a0f-c4c9-4c06-9427-600c6d52384e"],
Cell[179771, 5122, 390, 11, 24, "Input",ExpressionUUID->"ab0dc9ed-e778-4a38-bbb3-90a1879d9dbd"],
Cell[180164, 5135, 3508, 107, 225, "Input",ExpressionUUID->"6137e97a-04be-4ea6-b2f3-2e624a1f28ed"],
Cell[183675, 5244, 3102, 91, 205, "Input",ExpressionUUID->"e7f2e7e9-74c4-4f2b-adf0-e484e149a95b"],
Cell[186780, 5337, 2492, 75, 265, "Input",ExpressionUUID->"095dfe27-a520-4fed-8b02-beff978bd53c"],
Cell[189275, 5414, 194, 5, 24, "Input",ExpressionUUID->"b9d3b884-6b94-4c2f-915f-b7dfd35a2ff6"],
Cell[189472, 5421, 8492, 217, 505, "Input",ExpressionUUID->"337f751f-d259-4716-b940-4066f34f8d7a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[198001, 5643, 96, 0, 53, "Subtitle",ExpressionUUID->"7da7be1d-682c-4ec5-8fdf-3dd61527c152"],
Cell[198100, 5645, 2136, 59, 245, "Input",ExpressionUUID->"f2bf783b-df41-495f-a36e-2c908176c889"],
Cell[200239, 5706, 2404, 67, 165, "Input",ExpressionUUID->"09d8eb92-3b76-413f-bab8-d612c8066c4b"],
Cell[202646, 5775, 5392, 148, 285, "Input",ExpressionUUID->"782fc731-c242-434e-a4f0-393e30f8e9f8"],
Cell[208041, 5925, 367, 10, 24, "Input",ExpressionUUID->"4a3930e9-a8c2-4e39-918f-33b33f5dc9ca"],
Cell[208411, 5937, 5626, 143, 425, "Input",ExpressionUUID->"a3773b62-3c9a-4520-abdc-cb8568385fd4"],
Cell[214040, 6082, 562, 16, 24, "Input",ExpressionUUID->"e97157a8-5af2-4c0b-b808-7ea990b1be15"],
Cell[214605, 6100, 213, 6, 24, "Input",ExpressionUUID->"35711946-65ee-4a78-8236-469ea9f053d3"],
Cell[214821, 6108, 130, 2, 36, "Code",ExpressionUUID->"dedad196-f693-4ea0-bc7e-f425c81af544"],
Cell[214954, 6112, 100, 1, 36, "Code",ExpressionUUID->"fcf8fd1d-af54-433d-a523-4c504236fac5"],
Cell[215057, 6115, 159, 4, 36, "Code",ExpressionUUID->"9c0555c6-d781-4e82-8a12-256d87739d2b"],
Cell[215219, 6121, 158, 4, 36, "Code",ExpressionUUID->"76bfce15-7e42-48f2-8229-889f8c578763"],
Cell[215380, 6127, 188, 5, 36, "Code",ExpressionUUID->"9e946f4d-3090-4cdf-a6cf-594e39e23408"],
Cell[215571, 6134, 572, 20, 65, "Input",ExpressionUUID->"1400fcd2-f713-40d6-9347-70542f64c5a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216180, 6159, 94, 0, 53, "Subtitle",ExpressionUUID->"e8703036-cf7e-4fb5-a1e5-ddf743b2bbad"],
Cell[216277, 6161, 4162, 112, 417, "Code",ExpressionUUID->"1e1124d7-5b3a-4dd1-bf91-4105403ca600"],
Cell[220442, 6275, 113, 1, 36, "Code",ExpressionUUID->"2eacb367-71af-498a-b824-dacac78cca48"],
Cell[220558, 6278, 278, 8, 70, "Code",ExpressionUUID->"af28bce1-b999-4ebf-a970-36c53322ea8e"],
Cell[220839, 6288, 594, 19, 70, "Code",ExpressionUUID->"f6302555-0d42-4a29-b788-a77ad59170c1"],
Cell[221436, 6309, 189, 4, 70, "Code",ExpressionUUID->"7029314d-9c2b-4ee3-94db-81585a38e172"]
}, Open  ]]
}
]
*)

